home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler9.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  10.4 KB  |  11 lines  |  [TEXT/.Ob4]
  1. ¯6≤ˇƒ
  2. pH-6”.ãKepler9Ç= øfi≈rëxJ˛±üµ3˚ÕÇÁé≠ÉNewParallel3NewLineIntersectionµNewCircleIntersection˛NewCircleLineIntersect±NewExtensionüNewRightAngle˚NewTangentÕÑÖ"…}nMath6e∏uFiles6– µKeplerFrames6–çÜKeplerGraphs<ÒÇKeplerPorts;‚WêFonts;‚ÜDisplayܡˇ¯˚˘ˇˇ{ˇ?ˇ    ˇ˝Ú˘∞ˇ.˝E
  3. ˘d˘Dˇ¸8ˇ.˚íˇ˙ˇ;˘vá@C0C0ÄC0àø¡ˇ¯î!ˇ¿;·8;√ û ûÄ~ ÉÄÉ Ñ ûÄæ ÖÄ≈ Ü®‰©}'B ûÅ^ äÅj ã©ã|lH∞~ û ûÄû Ñħ Ö ûÄfi ÜÄÊ á©©'}HJ ûÅ~ ãÅã å®l|ÉP∞ûÄ!ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Ä¢ˇ–®≈ ,ÜA‰ÄbˇÏÄBˇƒHÄA;√Ä‚ˇ‘ÄgˇÙÄBˇƒKˇˇÄA ûê~ ûÅ à9 ±( ûÅ^ ä8jÄBˇ–HÄA ûÅ~ ã8kÄBˇ–Kˇ˛±ÄA ûÅû å8l ÄBˇ–Kˇ˛ïÄA8~Äɡ¸Äˇú|    ¶ÄDˇ†O‡!ÄAÄ¢ˇ–Äe8ûÄ√ˇ¸Äˇî|    ¶ÄFˇòO‡!ÄAÄ‚ˇ–Äg8ûÅˇ¸Äˇt|    ¶ÄHˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øˇ‡9Åˇ–Hêî!ˇÄ;·8êA;√ ûÅ> âÉ© ù´Ω ûÅ^ äÉä ú´ú ûÅ~ ãÉk õ´{ ûÅû åÉL ö´Z ûÄ~ ÉÉ# ô´9 ûÄû ÑÉ ò´|Ωÿ|›»|Â1÷}–}<¿}HI÷}gRmlÄëǡº»"ˇ∏»Bˇ∞¸a(|}ÿ|ùÿ|£!÷|‹–|¸–}9÷}%Bm*ÄëBˇº»Çˇ∏»¢ˇ∞¸ƒ((Ô„0$ û}}ÿmlÄëǡº»‚ˇ∏…ˇ∞˝'@(o£Äêbˇº…Bˇ∏…bˇ∞˝äX(Ì©g˙¸éˇ¿Lˇ‡L»"ˇ®¸Ah*ÿB¸é®Ç∞û û|º–l¶Äê¬ˇº»bˇ∏»Çˇ∞¸£ (oáÄê‚ˇº»¬ˇ∏»‚ˇ∞˝8(Ì%G˙˝@éˇ¿Lˇ‡L…bˇ®˝ãH*ŸÇ¸U驱ÄPÄ!9Åˇ–H|¶ªˇ‡O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Å"ˇ–©I /
  4. A¯ÄbˇËÄBˇƒKˇ˛ÈÄA;√Åbˇ‘ÄkˇÙÄBˇƒKˇ˚·ÄA ûê~ ûÅû å8`∞l ûÄû Ñ8dÄBˇ–Kˇ˛yÄA ûÄæ Ö8eÄBˇ–Kˇ˚ëÄA ûÄfi Ü8f ÄBˇ–Kˇ˚uÄA8~Ä„ˇ¸Äˇú|    ¶ÄGˇ†O‡!ÄAÅˇ–Äh8ûÅ#ˇ¸Ä    ˇî|    ¶ÄIˇòO‡!ÄAÅBˇ–Äj8ûÅcˇ¸Ä ˇt|    ¶ÄKˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ æ°ˇ‘î!ˇp;·8;√ ûÅû åÉå ú´ú ûÄ~ ÉÉc õ´{ ûÄû ÑÉD ö´Z ûÄæ ÖÉ% ô´9 ûÄfi ÜÉ ò´ ûIJ áÇÁ ó™˜ ûÅ àÇ» ñ™÷ ûÅ> âÇ© }X∞}{»}äY÷||–|ó®|£!÷•`/ùA˛∞ û|ÿ∞|¸–}9÷};∏}HI÷}x∞}õ»|ka÷|É·÷|™"|‹–|˜®}9÷}(¡÷}I(ù}jÍ◊@‡1kˇˇ±~ û}ó®|{»|å÷|º¿|ƒ)÷|˜®}–}'A÷}IŸ÷}fR}õ»|x∞|å÷|§π÷|≈X|˝–á}:◊@‡1ˇˇ±Ä!∫°ˇ‘O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Å"ˇ–©I ,äA‰ÄbˇÄBˇƒKˇ˚…ÄA;√Åbˇ‘ÄkˇÙÄBˇƒKˇ¯˘ÄA ûê~ ûÅû å8`∞l ûÄû Ñ8dÄBˇ–Kˇ˚YÄA ûÄæ Ö8eÄBˇ–Kˇ¯©ÄA ûÄfi Ü8f ÄBˇ–Kˇ¯çÄA ûIJ á8gÄBˇ–Kˇ¯qÄA8~Åˇ¸Äˇú|    ¶ÄHˇ†O‡!ÄAÅ"ˇ–Äi8ûÅCˇ¸Ä
  5. ˇî|    ¶ÄJˇòO‡!ÄAÅbˇ–Äk8ûÅɡ¸Ä ˇt|    ¶ÄLˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø¡ˇ¯9Åˇ`Hêî!˛‡;·@êA;√ ûÄ~ ÉÄÉ Ñ®§l¶Äê¬ˇº…¢ˇ∏»ˇ∞ˇÌ( ûIJ áÅ à©(m*ÄëBˇº»"ˇ∏»Bˇ∞ˇ¡( ûÅ~ ãÅã å®lldÄêǡº»bˇ∏»Çˇ∞ˇ£ ( ûÄæ ÖÄ≈ Ü®ÊlËÄëˇº»¢ˇ∏»¬ˇ∞ˇÖ0( ûÅ> âÅI ä©jmlÄëǡº»‚ˇ∏…ˇ∞ˇg@( ûÄ~ ÉÄÉ Ñ®§l¶Äê¬ˇº…"ˇ∏…Bˇ∞ˇIP( ûIJ áÅ à©(m*ÄëBˇº…bˇ∏…ǡ∞ˇ+`( ûÅ~ ãÅã å®lldÄêǡº…¢ˇ∏»ˇ∞ˇ
  6. (Ó˛¯(Ó‹Ë(Ï6≤Ï7
  7. ˙ÄBˇ»HÄA˛†ê¿Bˇ§ˇA˙Óñ®$Ïw®$˛`PÏüÿ(Ïøÿ(Ï›»(Ï˝»(ÌÚÓDAzÌ>–(Ì^–(Ì|¿(Ìú¿(Ì´2Ó)j∫Ïà(Ï ®$ÏU*¿bˇ†Ì‚$Ìœì¸¿Çˇúˇé A¸® ûàæ|¶tl«Äê‚ˇº»¢ˇ∏»¬ˇ∞¸Â0(ÿˇˇ¯¸ pêÄBˇ»Kˇˆ=ÄA»ˇˇ¯Ór ûÌÚÌ4D8ÌI¯*˝`éˇ¿Lˇ‡L…ǡ®˝¨P*Ÿ¢¸]驱 ûÏÚÏ3:ÏAË*¸`éˇ¿Lˇ‡L»Çˇ®¸§*ÿ¢¸é©"±>ÄËÄ!9Åˇ`H|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù û8æÄBˇÃHÄA8~8ú8ΩÅBˇ‘ÅjˇÏÄ ˇ¨|    ¶ÄKˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù ûâû}ÖtÄBˇÃHÄA8~8ú8ΩĬˇ‘ÄÊˇÏġ§|    ¶ÄGˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†Åˇ–©( ,âA‰‹Äbˇ¸ÄBˇƒKˇ¯·ÄA;√ û9@ô^Åbˇ‘ÄkˇÙÄBˇƒKˇÛ—ÄA ûê~ ûÅû å8`∞lÄbˇ¸ÄBˇƒKˇÛ≠ÄA;£ ù8ġˇòùÄ¢ˇ‘ÄeˇÙÄBˇƒKˇÛÅÄA ùê} ùÄ› Ü8‡∞Ê ûÅ à8hÄBˇ–Kˇ¯UÄA ûÅ> â8iÄBˇ–KˇÛ%ÄA ûÅ^ ä8j ÄBˇ–KˇÛ    ÄA ûÅ~ ã8kÄBˇ–KˇÚÌÄA ùÅù å ûÄ~ ÉÄÉêå ûÄæ ÖÄ≈ Ü®Ê1± ùÅ= â ûÅ^ äÅjëi ûÅû åÄl É®É0§∞£ ùÄ› Ü ûIJ áÅ ë ûÅ> âÅI ä©j1ã±ä ùÄ} É ûÄû Ñħê£ ûÄfi ÜÄÊ á©1(±'8~ÅCˇ¸Ä
  8. ˇú|    ¶ÄJˇ†O‡!ÄA8}Åcˇ¸Ä ˇú|    ¶ÄKˇ†O‡!ÄAÅǡ–Äl8ûÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAĬˇ–Äf8ùÄ„ˇ¸Äˇî|    ¶ÄGˇòO‡!ÄAÅˇ–Äh8ûÅ#ˇ¸Ä    ˇt|    ¶ÄIˇxO‡!ÄAÅBˇ–Äj8ùÅcˇ¸Ä ˇt|    ¶ÄKˇxO‡!ÄAÄ Ä!|¶ª°ˇÙO‡ |¶ø¡ˇ¯9Åˇ`Hêî!˛‡;·@êA;√ ûÅû åÄl É®ÉlÖÄê¢ˇº»¬ˇ∏»‚ˇ∞ˇÊ8( ûÄfi ÜÄÊ á©m    Äë"ˇº…ˇ∏…"ˇ∞ˇ»H( ûÅ^ äÅj ã©ãmÉÄêbˇº…Bˇ∏…bˇ∞ˇ™X( ûÄû Ñħ Ö®≈l«Äê‚ˇº…ǡ∏…¢ˇ∞ˇåh( ûÅ àÅ( â©ImKÄëbˇº»ˇ∏»"ˇ∞ˇ`( ûÅû åÄl É®ÉlÖÄê¢ˇº»Bˇ∏»bˇ∞ˇB( ûÄfi ÜÄÊ á©m    Äë"ˇº»Çˇ∏»¢ˇ∞ˇ$(( ûÅ^ äÅj ã©ãmÉÄêbˇº»¬ˇ∏»‚ˇ∞ˇ8(Ó∫(Óò‡(Ì2Ï5EzÄBˇ»KˇıôÄA˛`ê¡"ˇòˇHA˙ÏÓTò$ÌUò$˛ PPÌÿ(Ìüÿ(ÌΩ»(Ï»(Ï-2Ó :Ôˇ–(ÔΩ¿(ÏQrÓÚ˙ÏqÚÓ“xÌ◊Ö¸¿Çˇîˇé A¸† ûàû|Ötl¶Äê¬ˇº»¢ˇ∏»¬ˇ∞¸Â0(ÿˇˇ¯¸ pêÄBˇ»KˇÔUÄA»ˇˇ¯ÌÁ∞z ûÌÚ˝ @PÌI–*˝`éˇ¿Lˇ‡L…ǡ®˝¨P*Ÿ¢¸]鮂∞˛ ûÏ√˙¸ éˇ¿Lˇ‡L»Bˇ®¸b*ÿb¸
  9. 驱ÄËÄ!9Åˇ`H|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù û8æÄBˇÃKˇÙÕÄA8~8ú8ΩÅ"ˇ‘ÅIˇÏÄ
  10. ˇ¨|    ¶ÄJˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù ûâ~}etÄBˇÃKˇÙMÄA8~8ú8ΩÅǡ‘ÄÃˇÏġ§|    ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†Ä‚ˇ–© ,àA‰‹Äbˇ¯ÄBˇƒKˇÛ]ÄA;√ û9 ô>ÅBˇ‘ÄjˇÙÄBˇƒKˇÌÄA ûê~ ûÅ~ ã9ıãÄbˇ¯ÄBˇƒKˇÏ·ÄA;£ ù8`ˇˇò}Äǡ‘ÄdˇÙÄBˇƒKˇÏµÄA ùê} ùÄΩ Ö8¿∞≈ ûIJ á8gÄBˇ–KˇÚ—ÄA ûÅ à8hÄBˇ–KˇÏYÄA ûÅ> â8i ÄBˇ–KˇÏ=ÄA ûÅ^ ä8jÄBˇ–KˇÏ!ÄA ùÅ} ã ûÅû åÄlêk ûÄû Ñħ Ö®≈0Ê∞ ùÅ à ûÅ> âÅIëH ûÅ~ ãÅã å®l0É∞å ùÄΩ Ö ûÄfi ÜÄÊ ê ûÅ àÅ( â©I1j±i ùÅù å ûÄ~ ÉÄÉêå ûÄæ ÖÄ≈ Ü®Ê1±8~Å#ˇ¸Ä    ˇú|    ¶ÄIˇ†O‡!ÄA8}ÅCˇ¸Ä
  11. ˇú|    ¶ÄJˇ†O‡!ÄAÅbˇ–Äk8ûÅɡ¸Ä ˇî|    ¶ÄLˇòO‡!ÄAÄbˇ–Äc8ùÄ£ˇ¸Äˇî|    ¶ÄEˇòO‡!ÄAĬˇ–Äf8ûÄ„ˇ¸Äˇt|    ¶ÄGˇxO‡!ÄAÅˇ–Äh8ùÅ#ˇ¸Ä    ˇt|    ¶ÄIˇxO‡!ÄAÄ Ä!|¶ª°ˇÙO‡ ø¡ˇ¯î!ˇ¿;·8;√ û ûÅ^ äÅj ã©ãUÉ< ûÄû Ñħ Ö®≈|Ê∞˛ û ûÅ àÅ( â©IUK< ûÅû åÄl É®É|§X∞æÄ!ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Ä¬ˇ–®Ê /A¯‰ÄbˇÙÄBˇƒKˇÏëÄA;√Åˇ‘ÄhˇÙÄBˇƒKˇÈQÄA ûê~ ûÅ> â9@±I ûÅ~ ã8kÄBˇ–KˇÏÄA ûÅû å8lÄBˇ–KˇÈÄA8~Äɡ¸Äˇú|    ¶ÄDˇ†O‡!ÄAÄ¢ˇ–Äe8ûÄ√ˇ¸Äˇî|    ¶ÄFˇòO‡!ÄAÄ‚ˇ–Äg8ûÅˇ¸Äˇt|    ¶ÄHˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øˇ‡9Åˇ∞Hêî!ˇP;·8êA;√ ûÅ> âÉ© ù´Ω ûÅ^ äÉä ú´ú ûÅ~ ãÉk õ´{ ûÅû åÉL ö´Z ûÄ~ ÉÉ# ô´9 ûÄû ÑÉ ò´|Ω‡|›‡|Â1÷}»}:»}HI÷}gRmlÄëǡº»Çˇ∏»¢ˇ∞ˇ‰((|}ÿ|ùÿ|£!÷|⁄¿|˙¿}9÷}%Bm*ÄëBˇº»¬ˇ∏»‚ˇ∞ˇΔ8(ˇü@¸ho´Äëbˇº…ˇ∏…"ˇ∞˝HH(}ùÿmÉÄêbˇº…bˇ∏…ǡ∞˝´`(Ï
  12. ÚÏ $Ô™*oDÄêǡº»Bˇ∏»bˇ∞¸Ç(|∫¿l¶Äê¬ˇº»¢ˇ∏»¬ˇ∞¸Â0(ÌÚÌ($ÔÑH*Ì_$ÌÚÌã$̨$Ï*h(ÄBˇ»KˇÓ≈ÄAˇ`ê û ûà˛|Ëtm    Äë"ˇº»ˇ∏»"ˇ∞¸@(ÏbÚ}Z¿mKÄëbˇº»Çˇ∏»¢ˇ∞¸ƒ((Ï„È∫˝éˇ¿Lˇ‡L…"ˇ®˝I8*ŸB¸Eé©Ç±û û ûà~|dtlÖÄê¢ˇº…bˇ∏…ǡ∞˝´`(Ï
  13. Ú|€Ël«Äê‚ˇº»"ˇ∏»Bˇ∞¸a(Ïć˙¸†éˇ¿Lˇ‡L»¬ˇ®¸Ê *ÿ‚¸-驱ÄÄÄ!9Åˇ∞H|¶ªˇ‡O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù û8æÄBˇÃKˇÓÄA8~8ú8ΩÅ"ˇ‘ÅIˇÏÄ
  14. ˇ¨|    ¶ÄJˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ù ûâ~}etÄBˇÃKˇÌÅÄA8~8ú8ΩÅǡ‘ÄÃˇÏġ§|    ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ†;·8êA;¿ìfl ìflìflÄ‚ˇ–© ,àA‰x8ÄBˇ–KˇËÂÄAÅ? â©I1j±i8ÄBˇ–Kˇ‰çÄAÅü å®l0É∞å8 ÄBˇ–Kˇ‰iÄAÄø Ö®≈0Ê∞Â;†/A˘Äbˇ‰ÄBˇƒKˇÈ9ÄA;√ ûW®<1(ˇˇô>ÅBˇ‘ÄjˇÙÄBˇƒKˇ‰ÄA ûê~ ûÅ~ ã9ıã ûÄ~ ÉÄüêÉ ûÄæ ÖÄflê≈ ûIJ áÅ ë 8~Å#ˇ¸Ä    ˇú|    ¶ÄIˇ†O‡!ÄAÅBˇ–Äj8ûÅcˇ¸Ä ˇî|    ¶ÄKˇòO‡!ÄAÅǡ–Äl8ûÄ£ˇ¸Äˇt|    ¶ÄEˇxO‡!ÄA3ΩC‡ˇÄ0Ä!|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇÏCircleIntersection ˇ¯ˇÏCircleLineIntersection ˇÙˇÏExtensionDesc ˇˇÏIntersectionDesc ˇÏˇÏParallelDesc ˇËˇÏRightAngleDesc ˇ‰ˇÏTangentDesc ä    
  15.   "$(*,HJLOQVX]_ãçèëìïóôõùü°£•ß©´≠»fi %'NPRTVXZ\^`bdfhjlnprtvxz|áóú≠ ÃŒ—”ÿ⁄fl·ÊË!#*,.579@BDKMOVXZaceèû´ È#+-/249;@BGINPQSVXZ^`acfhjnpqsvxz~ÄÅÉÜà䌖“Ÿ€›‰ÊËÔÒÛ˙¸˛    DS`}ú¬ ÃŒ÷fi‡‚ÂÁÏÓÛı˙¸     
  16. !#$&)+-13469;=|}ÅÑÜàåçèëîñò¥∂∏ªΩ¬ƒÚÙˆ¯˙¸˛
  17.  STmnô∏‡ÈÚ˛     ã¯38Parallel.Calc
  18. ·{self¯Ç8NewParallel
  19. ·{new¯˚»8RightAngle.Calc†{f
  20. ·{self‚{x0‰{x1Ê{x2„{y0Â{y1Á{y2¯ 8NewRightAngle
  21. ·{new¯µÿ8Intersection.Calc‚{f
  22. ·{self„{x0Â{x1Á{x2È{x3‰{y0Ê{y1Ë{y2Í{y3¯ã8NewLineIntersection
  23. ·{new¯ø‡¿
  24. CircleInter.Calc†{M1x¢{M1y°{M2x£{M2y§{R1x¶{R1y•{R2xß{R2y´{c™{d±{h®{mx©{myØ{qx∞{qy≠{r1Æ{r2¨{s
  25. ·{self¯fi8CircleInter.Read
  26. ·{self¯˛8CircleInter.Write
  27. ·{self¯≈8NewCircleIntersection
  28. ·{new1
  29. ‚{new2¯Ú‡¿
  30. CircleLineInter.Calc°{L1x£{L1y•{L2xß{L2y†{M1x¢{M1y®{M2x©{M2y§{R1x¶{R1y≠{c¨{d±{h™{mx´{my∞{qyØ{r1Æ{s
  31. ·{self¯ë    8CircleLineInter.Read
  32. ·{self¯±    8CircleLineInter.Write
  33. ·{self¯¯
  34. 8NewCircleLineIntersect
  35. ·{new1
  36. ‚{new2¯ü 8Extension.Calc
  37. ·{self¯Á 8NewExtension
  38. ·{new¯é
  39. ¯8Tangent.Calc°{d2§{faktor†{r2
  40. ·{self‚{x0„{x1‰{x2¢{x3Â{y0Ê{y1Á{y2£{y3¯≠
  41. 8Tangent.Read
  42. ·{self¯Õ
  43. 8Tangent.Write
  44. ·{self¯Ω(8NewTangent‚{i
  45. ·{new
  46. p0
  47. p1
  48. p2¯»8$$